home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / STRING.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-11  |  293 b   |  11 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *STRING_TEST_FOR_NITROUSBASIC
  4. 3 rem *
  5. 4 rem *
  6. 5 cls 
  7. 10 A$="....String function test for the Nitrous Basic ANSI interpreter....."
  8. 20 for I=1 to len (A$)*2 :for Y=0 to 20 :cursor (0 ,Y):print A$:next Y
  9. 30 L$=left$ (A$,1 ):A$=right$ (A$,len (A$)-1 )+L$
  10. 40 next I
  11.